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Facility: System configuration 


Abstract: CONFIGURE is used to dynamically configure VAX MSCP-served and HSC- 
served disks and tapes. 


Environment: It is run as a process, in user, exec and kernel modes. 
Author: Maryann Hinden, Creation date: 02-JUN-1983 
Modification History: 


v03-004 wWHM0001 Bill Matthews 11-Apr-1984 
Purge working set before hibernating. 
v03-003 
4 Change value in BOOSGL_CONADP to indicate noadapter. 
00 v03-002 wMC0001 Wayne Cardoza 11-Aug-1983 
Polling must be reenabled in kernel mode. 
v03-001 yore pe aryene Hinde 14-Jul-1983 
d jacket eeitten OOSCONF I GHN to image, and 


+ ¥. some code. 


Se Se Se Se Se Ge Se Ge Se Ge Se Ge Se Se Se Ge Ge Se Fe Se Ge Se Se Se Ge Ge 


Include files: 
SACFDEF ; Define autoconfiguration block 


NAA WR SO ODA UNE WIN 9 OD NAME WIN 9 OONAU EWN (OOO NAUES WN OOONOUS win 
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808 28 SIODEF 
SIPLDEF 
0 60 SLCKDEF 
] 4594 peed ; Define process poller mailbox offsets 
00 86 SSSDEF 3: System status definitions 
00 64 $SYSGMSGDEF 3 Sysgen messages 
000 65 
0000 66 $ 
38 of 3 Equated Symbols 
0000123 00 9 WRTATNFLG = <10$_SETMODE! 10$M_WRTATTN> 
$08 8009% 0000 19 READFLG = <10$_READVBLK ! 1OSA_NOW> 
00000000 0000 72 SERVER = 0 ; Offsets into process info block 
99000010 9000 5g SERVER = 46 . 
00000012 0000 74 DRIVER = 18 
00000018 0000 75 SPP = 27 
0000 4 
0000 77 3 
0000 78 ; Macros 
0000 79 ; 
st 39 -MACRO PRCINFO SERVER,DEVICE,DRIVER ; Builds process info table 
0000 8 -PSECT INFO_BLOCK ; Actual data area 
0000 Bg 
0000 84 SSERVERNAMES = . 
0000 85 ASCII / / 3; Reserve room for all 16 chars 
0000 86 SNAMENDS = . 3 Remember end of block 
0000 87 . = SSERVERNAMES : Get back to beginning 
0000 88 ASCII /SERVER/ 3 Now store the real name 
0000 89 . = SNAMENDS 3; Go to end of block 
0000 90 eASCII /DEVICE/ : Device name 
0000 91 eASCIC /DRIVER/ : Driver name 
44 3 LONG ; SPPB for polling this process 
ti 32 -PSECT INFO_PTR 3; A List of pointers to the data 
$000 96 -LONG $SERVERNAMES 
0000 97 
0000 98 -ENDM 
0000 99 ; 
0000 100 ; Own Storage 
$383 18 
0000 1 ¢ -PSECT INFO_PTR 
4 10 
000 104 PROC_INFO: 
000 105 PRCINFO MSCPSDISK,DU,DUDRIVER ; Build the process info table 
se 136 PRCINFO MSCPSTAPE MU, TUDRIVER 
0000 098 108 -PSECT INFO_PTR 
00000000 op 109 LONG : Indicate end of table 
0000001C 13 119 ‘ 4 3; Patch area for four more processes 
0000 Oi M6 -PSECT we BLOCK 
000000BA A 2 -BLKB <SPPB+4>*4 ; Patch area for data 


‘ 
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-1984 BOOTS. SRC JCONF IGURE .MAR; 1 
000000 115 -PSECT NONPAGED_DATA,NOEXE ,WRT 
SaaS 09 118 FULL_NAME: -BLKB 23 ; Storage area for cluster dev name 
0000018 18 a4 DEVNAME : -BLKB 3; Storage area for short dev name 
00000000 18 119 EX)JT_BLOCK: -LONG 0 ; Data block for exit handler 
00900251" Sp 420 OT "CONG  EXIT_HANDLER : 
0000001 00 3 121 - LONG 
BODO SO SE. 0 1 § LONG EXIT_STATUS 
0000002F 00 ? : ? EXIT_STATUS: -BLKL 1 
00000033' 86 F 125 KARGLST: -LONG SPPBARG 3; Argument List for CANCEL_POLL 
00000000 Bp ; ! § SPPBARG: -LONG 0 3; kernel mode routine 
0000003 Bee 128 MSGBUFSIZ: «LONG PRCPOLSC_SIZ ; Buffer used by mailbox read 
0000007 0073 : 4 MSGBUF : -BLKB PRCPOLSC_SIZ 
0000 007 131 MBXCHAN: «WORD 0 . 3; Mailbox 1/0 channel 
0000007D hee ! § STATUS BLOCK: -BLKL 2 : 1/0 completion status block 
00000000 134 -PSECT PAGED_CODE,EXE,WRT 
0000 135 PURGE_LIMITS: 3; Limits for purge working set 
00000000 0000 136 «LONG ; Purge all of PO and P1 
7FFFFFFF t'e4 13 ~ LONG “X7FFFFFFF 
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you-oo0 CONFIGURE = Configure dawlaon 46-SEP-1984 $368.48 feoors sre CONF IGURE .MAR; 1 ” (1) 
p 149 ; -SBTTL CONFIGURE - Configure devices 
i: : 
145 ; PURPOSE 
0 144 ; To start pol ting on cluster members in order to find out about 
bp 132 3 HSC=- and MSCP-served devices on other systems. 
008 129 3 INPUT 
00 138 : None 
008 149; 
008 150 ; OUTPUT 
Bo08 13) 5 None 
0 1 ¢ 3 
B88 153 ; FUNCTIONAL DESCRIPTION 
00 154 ; This routine requests polling on all systems in the cluster 
000 155 ; for all processes described in the process information table. 
0008 156; The process poller communicates with the CONFIGURE process via 
0008 157; a mailbox. Once the polling requests have been sent out, a 
0008 158; write attention AST to the mailbox is issued, and the routine 
3288 122 3 hibernates waiting for input. 
0008 161; In order to cancel polling (and clean up properly) if the image 
Oop 166 3 should terminate abnormally, this routine declares an exit handler. 
0008 164 
001c 0008 165 ENTRY BOOSCONFIGURE, “M<R2,R3,R4> 
499 166 
QOOA 167 ; . , 
Bona 198 : Create mailbox used to communicate with process poller 
Q0O0OA 170 SCREMBX_S prmflg = #1,- 
QOO0OA 171 chan = MBXCHAN,- 
QO0A 76 promsk = #*XFFOO 
60 50 €9 ba58 17 BLBC RO,10$ 
0028 174 
0028 175; 
bn56 176 ; Declare exit handler to be used when image exits 
itd 178 SDCLEXH_S desblk = EXIT_BLOCK 
50 50 €9 0035 179 BLBC RO,10$ 
bose 180 
O38 13] 3 
003 : ¢ 3 Now request polling on all processes 
O38 182 SCMKRNL_S REQ_POLL, (AP) 
3—E 50 E€9 004 185 BLBC RO,10$ 
Oca 187 
04A 188; We are finished requesting polling. Now set a write attention AST 
4A 193 3; and hibernate while waiting for responses from the poller. 
in 139 3; (We assume that at least one call to SCSSPOLL_MBX was successful). 
bGA 19¢ . $Q10_$ chan = MBXCHAN,- 
4A 19 func = #WRTATNELG,- 
4A 194 p1 = FOUND_PROC,- 
4A 195 pe = PROC_INFO 
1250 €9 73. «196 BLBC ,10$ 
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voa-000 "= CONF 


SPURGWS_S inadr = PURGE_LIMITS ; minimize system resources 
paper $ 


An error occured on the create mailbox, when calling the process 
; ees ves or when issuing the Q10. Send out the error message and terminate. 
; The exit handler (if declared at this point) will clean up. 


C 

G 
04 
50 007C€8132 8F 0 

FF6E* 

04 

0 

0 

0 

0 

0 

0 

0 


10$:  MOVL  #SYSG$_CONFIGERR,RO 
BSBW PUTERROR 
92 SEXIT_ 
ay 
+: ; Request polling on all processes we want to know about 
0000 3¢ REQ_POLL: «WORD 0 
9E SETIPL #IPLS_ASTDEL 
53 Q0000073°EF 3c Al MOVZWL MBXCHAN,R : Get channel address 
54  00000000'EF 9& OG0A8 MOVAB  PROC_INFO,R4 : Get top of process table 
52 84 v0 oat MOVL (R4),R2 3: Get address of first process name 
50 53 oO 008 10$ MOVL R3,RO ; Channel # in RO is arg to call 
OOOO0000'EF 16 008 JSB SCSSPOLL_MBX ; Request polling for this process 


; R1 contains address of SPPB - need later to cancel polling 
; R2 is preserved and points to process info block 


0,20 


R $ 
MOVL R1,SPPB(R2) 3; Save SPPB 
MOVL (R4)+,R2 ; Get next process name 
BNE : If NEQ, poll for it 


NEQ 1 
MOVZBL #SS$_NORMAL ,RO Indicate success 
208: 
Lower IPL 
Return error to caller 


SETIPL #0 
RET 


WAI AIAN IIA POIPIDININININPINID 3 4 OO  MOOOOOOOOCOCOONOND CVO 
DNAUNE WN SO ODNAULS WN SO ODONAUS WN —“OOODNOUES WIN OO0On F< 
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you~ 000 FOUND_PROC = A process has been found by raat 33368548 fBoors. sre CONF IGURE .MAR; 1 
e ‘9 a -SBTTL FOUND_PROC = A process has been found by the poller 
CE 242: 
CE rk 3 PURPOSE 
OCE 44; Routine which is called when the process poiler mailbox has been 
pte re : written into. 
OCE “3 : INPUT 
bce rt : Mailbox messages - implicit 
OOCE 250: OUTPUT 
Bote 2] : Processed messages 
OcE Ht ¢ FUNCTIONAL DESCRIPTION 
cE 54; This routine is called at AST level. It first re-enables the 
OOCE > write attention AST for the mailbox. It then reads and processes 
OOCE 2$ $ messages until there are none left. 
OOCE of é 
ge BB 
007C OOCE 60 ENTRY FOUND_PROC, “M<R2,R3,R4,R5,R6> 
0000 S62 
3908 e§ ; Before doing anything else, we requeue the write attention AST request 
00D0 265 $Q10_S chan = MBXCHAN,- 
0000 266 func = #WRTATNFLG,- 
00D0 67 pl = FOUND_PROC,- 
0000 68 pe = PROC_INFO 
47 50 €9 OOF6 69 BLBC 0,30$ 
aes 
sti Le: : Now, read mailbox messages until there are none left 
O0OF9 274 10$:  $Q10.S chan = MBXCHAN,- 
OOF9 75 func = #READFLG,- 
sy ate ype 5 gual Alon. 
00F9 278 p = MSGBUFS1Z 
3 50 £9 0126 79 BLBC 0,408 
54 QOO000075‘EF 9E& 0129 80 MOVAB STATUS_BLOCK,R4 3; Get address of status block 
0870 8F 64 st 31 2 81 prey (R4) ,#SS$_ENDOFFILE 3 a read all the msgs? 
3 . yes 
1A_ 64 53 it ? g BLBC (R4) ,40$ :; If LBC, then some sort of error 
0022 0 Q13A 4 BSBW PROCESS_MSG : Else the poller found something 
BA 11 Bi 30 5 BRB 10$ ; Look for more messages 
04 tet § 20S: RET 
O10 3 
120 90 : An error has occurred when trying to requeve the write attention AST. 
B88 3) 3; Have the image exit. 
14 38 S0s: 
50 007C8132 8F yi 14 94 MOVL #SYSG$_CONF IGERR,RO 
FEB6' 14 95 Bay PUTERROR 
14A 96 EXIT_S 


rome ty 
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04 0153 97 RET 
Sse $96 
0154 99 ; : 
Biee 00 ; An error has occurred when reading the mailbox message. Send out the 
0154 01 ; error message and dismiss the AST. 
0154 ¢ : 
6154 303 dos: 
50 007€8132 BF DO 0154 04 MOVL #SYSG$_CONF IGERR,RO 
FEA2* 30 0158 305 BSBW PUTERROR 
04 O1SE 306 RET 
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015F 08 -SBTTL PROCESS_MSG = Do the work of configuring the device 
015F 09 ;++ 
015F 10 ; 
015F 311 ; PURPOSE ; 
015F ig : Workhorse routine to actually configure the device database 
Biee Fe ; for the server which has been found. 
Ee 15 ; INPUT 
bier 1 ; MSGBUF = contains the actual message 
O15F 18 ; OUTPUT ; : 
Bir i? ; Configured device and driver 
015F $3 ; FUNCTIONAL DESCRIPTION : 
015F ¢ z This routine uses the node name (contained in the message) together 
015F “3 5 with the information associated with the server process name to 
O1ISF 324 ; construct a cluster device name. It then calls the connect code 
Bi 2F $52 : to actually construct the device database and load the class driver. 
O15F i 
015F 28 PROCESS_MSG: } 
007C 8F BB Q15F $$2 PUSHR § #*M<R2,R3,R4,R5,R6> ; Save registers touched here 
00000000'EF 00 FB 0163 330 CALLS #0,BO00$CONRESET ; Reset connect information 
016A 336 : 2 
Q16A 333 ; Search through the List of processes we are looking for to see 
Bien $3¢ : if there is a match 
56 Q000003B"EF 9E Q16A $39 MOVAB MSGBUF ,R6 ; Get address of message buffer | 
54 QO0O000000°EF 9E Hal $30 -MOVAB PROC_INFO,R4 ; Get address of process information 
55 84 DO 0178 339 10$: MOVL (R4)+,R5 ; Get next entry 
58 13 0178 340 BEQL ; If EQL, no more entries & no match 
18 AB 65 10 29 0170 341 CMPC3 #16,SERVER(R5) ,PRCPOLSB_PRCNAM(R6) ; Compare 
F4 0182 $48 BNEQ 10$ ; If NEQ, try next one 
0184 34 
0184 344 ; . : 
0184 345 ; A match was found - save info needed for the connect call and build the 
A 9 $08 3 device name 
OOOOOOOO"EF 01 CE 0184 348 MNEGL #1,B00$GL_CONADP ; Don't use an adapter 
QOOOOOOO'EF D4 0188 349 CLRL BOO$GL_CONCUNIT ; Unit number always 0 
QOOO0000"EF D4 0191 50 CLRL BOOSGL_ CONAUNIT ; Same for adapter unit 
0000000 ‘EF 66 7D 0197 51 MOVa PRCPOLSL_SYSIDL(R6) ,BOO$SGQ_CONSYSID ; Save the sys ID from msg 
QO000000"EF 12 A5 YE Q1° 25 MOVAB DRIVER(RS),BOOSGL_CONDRV ~; Save the driver name from proc_info 
52 8 A6 GE O1Ao 5 MOVAB PRCPOLST_NODNAM(RS),R2 ; Get node name arg from msg 
20 Be O1AA 54 PUSHR #*M<R5> ; Save pointer to proc_info : 
55 10 AS O1AC 55 MOVAB DEVICE(RS),RS ; Get device name arg from proc_info 
55 10 0180 56 BSBB BLONAME ; Construct the cluster device name 
20 =BA B16¢ 57 POPR #*MA<R5> ; Restore 
it 
bipe 60 ; Connect the device - build the class device database, load the class driver, 
O14 rt ; and initialize the device 
00000000 ‘EF 99 4 1B4 88 CALLS £0 -BOOSCOMNECT 
1250 €8 0188 64 BLBS RO,15$ 


} 
i 
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0O1BE 65 SCMKRNL_S noyrin = 30$ ; Polling must be turned on from K mode 
0c 50 «6&9 )«6—01CD 06 BLBC RO,25$ 
1D0 6 
1D0 68 ; 
8108 $° ; ALL done 
007C 8F BA $159 71 15s: POPR #*M<R2,R3,R4,R5,RO> ; Restore registers touched here 
05 01D4 te RSB 
01D5 7 
Q1D5 74; 
p108 o ; There was no process name match - we got a spurious mailbox message 
81D § 20$ 
50 007C€8132 8F 88 0105 78 MOVL  #SYSG$_CONFIGERR,RO 
FE21* 30 01DC 79 258: BSBW ¢ PUT : 
007C 8F BA Q1DF 80 POPR #*M<R2,R3,R4,R5,RO> ; Restore registers touched here 
OS O1E3 81 RSB 
O1E4 8 
O1E4 83 ; 
O1E4 84 ; There was an error connecting the device - CONNECT already let the 
QO1E4 85 ; world know. 
O1E4 86 ; 
O1E4 387 $08: 
0000 O1F4 388 . WORD 
2 66 9E O1E6 389 MOVAB PRCPOLSL_SYSIDL(R6),R2 ; Get 2a ID 
51 18 AS) DO O1E9 $09 OVL SPPB(R5),R1 ; Get SPPB : 
0 01 A Q1ED 91 MOVZBL #1,R0 ; Re-enable polling 
O1FO 39 SETIPL #IPL$_SCS ; Raise IPL 
00000000'GF 16 OTF 9 JSB G*SCSSPOLL_MODE 3 Request pel ling again 
O1F9 = 3394 SETIPL #IPL$_ASTDEL ; Restore IPL 
0750 €8 O1FC 395 BLBS 0,35 
50 O07C813A 8F DO OFF 396 MOVL #SYSG$_CANTPOLL ,RO ; Indicate unable to restart poll on 
04 0206 397 35$: RET 
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PURPOSE . : 
Construct cluster device name given the node name and the 
device prefix. 


INPUT 
R2 = Address of the node name string (in counted ASCII) 
R5 - Address of the device prefix 


OUTPUT 
FULL NAME PTR = contains address of complete device name strin 
BOOSGL_CONDEV - contains pointer into complete device name string, 
: starting at device prefix 
ALL registers preserved. 


FUNCTIONAL DESCRIPTION 
This routine builds a cluster device name of the form: 


Be Se Se Ge Se Ge Ge Se Ge Se Se Ge Ge Se Se Be Se Se Ge Se Se Se Se Se 


Pot et et et et et et et et kk dk dk ek kkk kek a ad Ie le de eh ed 
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byte 0: count of chars in string 
1 to 2 node name 
m+1: 
m+2 to m+4: ‘‘xxA"’ , where xx is the device name used by a given server 
BLDNAME : 
3F BB PUSHR #*M<RO,R1,R2,R35,R4,R5> ; 
53  QQO00000°EF 9€ MOVAB FULL_NAME,R ; Pointer to output buffer 
00000000'GF 83 9 MOVAB (R3)*,G*FULL_NAME PTR ; Set up ptr for connect 
ASSUME SBS$T_NODENAME+16,£Q,SB$L_DDB ; Make sure size doesn't change 
54 82 QA MOVZBL (R2)?,R4 ; Get real Length of string 
34 BB USHR #*M<R2,R4,R5> ; Save regs destroyed by MOVC3 
sas @ «46 MOVC3 RG, (RO), (R3) 3; Store node name _in buffer 
34 BA POPR #*M<R2,R4,R5> : Restore regs (R3 now points to next 
: byte in dest. buffer after node name) 
83 24 90 MOVB #*A/$/ ,(R3)+ ; Set in separator 
63 65 860 MOVW (R5), (R3) 3; Store device prefix 
02 AS 41 BF 90 MOVB #*A/A/ ,2(R3) ; Store controller letter 
‘EF 54 04 81 ADDB3 #4,R4,FULL_NAME ; String is ASCIC 
00000017°EF 63 00 MOVL (R3) ,DEVNAME +1 3; Store device name 
6'EF 03 90 MOVB #3 ,DEVNAME ; Store count 2 : 
OOOO0000"EF  OQOD00016"EF 9€ 4 MOVAB DEVNAME,BOOSGL_CONDEV =; Store address of device string 
3F BA ? OPR #*M<RO,R1,R2,R3,R4,R5> 
05 44 RSB 
44 
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51 447 -SBTTL EXIT _HANDLER 
51 ret p++ 
51 449; 
0251 450 ; PURPOSE 
8 2} $2) 3 Cancel polling on mailbox (if any) at image exit. 
0251 38 3 INPUT 
8 2} t2e 3 Saved SPPB addresses in PROC_INFO table. 
0251 496 3 OUTPUT 
0251 457; Cancelled polling. 
8521 $28 : 
51 459 je 
0251 460 
001C Ose ree ENTRY EXIT_HANDLER, “M<R2,R3,R4> 
53 OQO0000000'EF 9E 0253 46s MOVAB PROC_INFO,R3 ; Get address of process info table 
54 . 83 00 O53A 465 10$: MOVL (R3)+,R4 ; Point to next info block 
22 13 0250 466 BEQL $ ; If EQL, end of table 
Q0O000033"EF 18 AS DO O25F 467 MOVL SPPB(R4) , SPPBARG ; Get address of SPPB 
F1 13 0267 468 BEQL 1 ; If EQL, we haven't polled for this process 
0269 469 SCMKRNL_S routin=CANCEL_POLL,- ; Cancel polling 
0269 470 arglst=KARGLST ; 
18 AS =6—DG «(027C~— 471 CLRL SPPB(R4) ; Show no more polling for this process 
D9 Ss oser of6 BRB 10$ ; Loop through table 
0281 474 208: SDELMBX_S chan=MBX CHAN ; Mark mailbox for deletion 
O28F 475 CMEXEC_S routin=DQLOCKS ; Dequeue locks 
50 01 3C€ O29EF 476 MOVZWL = #SS$_NORMAL ,RO 
04 Q2A1 477 RET 
O2A2 478 
O2A2 479; : : / 
OSA5 ret ; Kernel mode routine running at IPL$_ASTDEL which cancels the polling mailbox. 
0004 02A2 482 -ENTRY CANCEL_POLL,“M<R2> 
02A4 48 
02A4 484 SETIPL #IPLS_ASTDEL 
51 04 AC DO O2A7 485 MOVL 4 . ; Get SPPB address 
OQOOOOOO0"EF 16 QO2AB 486 JSB SCSSCANCEL _MBX ; Cancel polling 
0281 487 SETIPL #0 
04 0284 488 RET 
0285 489 
bsee 490 ; 
B58? 4 ; Exec mode routine to dequeve all locks held 
0000 0285 49 ENTRY DQLOCKS,“*M<> 
02B7 494 f 
02B7 495 $DEQ_S lkid = #0,- 
0287 496 flags = #LCKS$M_DEQALL 
04 0 C6 497 RET 
02C 498 
02C7 499 -END 
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SNAMENDS 
ide 
DNAME 
BOOSCONF 1GURE 
B00$ CT 


CKSn DEQA 
x LL 
MBX CHAN 


S 
i 


yeueee 
la 


$1” NODE NAME 
fas 


C 

C 

C 

E 
Pre 
PPBARG 

$$ + A 
S$- NORMAL 
TATUS_ BLOCK 


nvununenuuuw 
—e 


G 1 
= PROCESS TO. DYNAMICALLY CONFIGURE DEVIC yf as 


00000000 
44 F 
000 F 
0000 


07 
00000008 


rerereaee 
eearerene 
rtrereraree 
tenrerenee 
grerreee 
rereeree 
reeerenre 
eeeareene 


000002A 
0000001 


nhunnnun 
=] 
ooo 
ooo 
im 
w 


" 
oO 
Oo 
oo 
oo 
So 
Oo 
io 
— 


geaeaenae 
00000018 
00000038 
00000000 


00000000 
geeerenre 
= 00000071 
0000009C 
= 00000054 
= 00000044 


teeerene 
teeerenre 
geeneene 


00000000 


RG 


<< OO OE OE OO 


SooOoCooo SO DOOOCOCOOOOOSCOoOO 
MEMES UWS WWMM 


SYSSCMEXEC 
SYSSCMKRNL 
SYSSCREMBX 
SYSSDCLEXH 
SYSSDELMBX 
SYSSDEQ 
SYSSEXIT 
SYSSHIBER 
SYSSPURGWS 
SYS$Q10 
SYSG$_CANTPOL 
SYSG$" CONF IGERR 
WRTATRFLS 
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warkaeee GX 
weakeeee GX 
keakenee GX 
weeneeee § 6X 
aeaenenee GX 
geaenane 6X 
ketkeene 6X 
aaekkanee GX 
weekkene GX 
eetaaeee GX 


00 


007C813A 
76813 
00012 


ro 
co 
83 

5 
05 
05 
05 
05 
05 
05 
05 
05 


§CBnt 16u 


00 
URE .MAR; 1 
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Psect synopsis 4-SEP-1984 03: BOOTS. SRCJCONF IGURE .MAR; 1 ) 


Faas ocean wesaeoe $ 


! ; Psect synopsis ! 


owen ens 7 aéabunes> 


PSECT name Allocation PSECT No. Attributes 
,» 6 & 00000000 ( 0.) 00¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
 $ABSS 00000000 ( 0.) O1¢ +1.) NOPIC USR CON A&BS LCL NOSHR EXE RD WRT NOVEC BYTE 
INFO_PTR QOOOOOIC ¢ go? 8g ( §-} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
INFO BLOCK QOOOOOBA ( 186.) 05 ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
NONPKGED DATA 00900070 ( 125.) O4 ( &.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
PAGED_COBE 000002ec7 ¢ 711:) 05 ¢ 5:) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
domme moore meee ma nm ew mma oe + 
! Per formance indicators : 
Seondum Boone ese ee see ananed 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.05 00:00:00.54 
(Command processing 115 ba Bh 6 SF 2 00:00:01.93 
320 00:00:10.32 00:00:21.76 
| Seabot table sort 0 es So oY 00:00:03.69 
Pass 2 98 0:00:02.1 00:00:03.49 
| Symbol table output 9 00:00:00.1 00:00:02.67 
Psect synopsis output : 3 00:00:00.0 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 576 00:00:14.83 00:00:34.11 


“Ihe working set_Limit was 1500 pages. 

57546 bytes (113 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1005 non-local and 15 local symbols. 
.499 source Lines were read in Pass 1, producing 35 object records in Pass 2. 

33 pages of virtual memory were used to define 31 macros. 

| 


“Macro Library name Macros defined 


$255SDUA28: 8: {53-08 rye WEF -MLB;1 


+ $2559$DUA2 1 
Et tae SYSLIBJSTARLET.MLB;2 


“TOTALS (all libraries) 5 
1176 GETS were required to define 27 macros. 

There were no errors, warnings or information messages. 
MACRO/L1S=L1S$: CONF IGURE/0BJ=OBJ$: CONFIGURE MSRC$: CONF IGURE/UPDATE=(ENHS: CONFIGURE) +EXECMLS$/L1B+L1B$:BOOTS.MLB/LIB 
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